A continuación se muestran la cantidad de casos de COVID-19 confirmados por el Ministerio de Salud de Entre Ríos, discriminados por departamento y localidad
covider <- covid_er %>% group_by(DEPARTAMENTO) %>%
mutate(cantidad=n()) %>% select(DEPARTAMENTO, cantidad) %>% unique()
highchart() %>%
hc_title(text = "<i>Casos de COVID-19 en Entre Ríos</i> ",
margin = 20, align = "center", style = list(color = "#08338F", useHTML = TRUE)) %>%
hc_tooltip(followPointer = FALSE) %>%
hc_add_series_map(entrerios, covider, name = "Casos", value = "cantidad",
joinBy = c("nam", "DEPARTAMENTO"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.nam}: {point.value}')) %>%
hc_colorAxis(minColor = "#B7D4EB", maxColor = "#08338F") %>%
hc_legend(align = "center", x = 0, y = -10) %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_ffx()) %>%
hc_add_annotation(xValue = 0, yValue = 0, title = list(text = 'Fuente: Ministerio Salud ER')) %>%
hc_chart(borderColor = "#08338F", borderRadius = 10, borderWidth = 2)
En Argentina, la tasa de incidencia acumulada nacional es de 9.76 cada 100 mil habitantes. La Incidencia Acumulada de toda la provincia de Entre Ríos es de 1.8 cada 100.000 habitantes.
La incidencia acumulada (IA) a nivel departamental, considerando la población proyectada por INDEC para el 2020 se observan en el mapa y tabla a continuación
covid_er_ia <- covider %>% left_join(poblac_er, by=c("DEPARTAMENTO"="departamento")) %>%
mutate(ia= round(cantidad/poblacion * 100000, 2)) %>% arrange(desc(ia))
highchart() %>%
hc_title(text = "<i>Incidencia Acumulada de COVID-19 en Entre Ríos</i> ",
margin = 20, align = "center", style = list(color = "#780000", useHTML = TRUE)) %>%
hc_tooltip(followPointer = FALSE) %>%
hc_add_series_map(entrerios, covid_er_ia, name = "Incidencia", value = "ia",
joinBy = c("nam", "DEPARTAMENTO"),
dataLabels = list(enabled = TRUE,
format = '{point.properties.nam}: {point.value}')) %>%
hc_colorAxis(minColor = "#FFAAAA", maxColor = "#780000") %>%
hc_legend(align = "center", x = 0, y = -10) %>%
hc_mapNavigation(enabled = TRUE) %>%
hc_add_theme(hc_theme_ffx()) %>%
hc_add_annotation(xValue = 0, yValue = 0, title = list(text = 'Fuente: Ministerio Salud ER')) %>%
hc_chart(borderColor = "#780000", borderRadius = 10, borderWidth = 2)
tabiaprov_er <- covid_er_ia %>% select(DEPARTAMENTO, poblacion, cantidad, ia) %>% arrange(desc(ia))
tabiaprov_er %>% kable(col.names = c("Departemento","Población", "Casos", "Tasa Incidencia"),
format.args = list( big.mark=".", decimal.mark = ","),
align=c('l', 'c', 'c', 'c')) %>%
kable_styling()
| Departemento | Población | Casos | Tasa Incidencia |
|---|---|---|---|
| Islas del Ibicuy | 13.420 | 1 | 7,45 |
| Gualeguay | 58.565 | 3 | 5,12 |
| Gualeguaychú | 124.231 | 5 | 4,02 |
| Diamante | 51.384 | 2 | 3,89 |
| Colón | 77.039 | 3 | 3,89 |
| Villaguay | 52.651 | 2 | 3,80 |
| Nogoyá | 41.304 | 1 | 2,42 |
| Paraná | 376.912 | 6 | 1,59 |
| La Paz | 72.051 | 1 | 1,39 |
| Concordia | 191.117 | 1 | 0,52 |